// program: Berechnung Steuerbetrag OW
// task:    Berechnung einfache Staats-, Kantons-, Gemeinde und Kirchensteuer.
// project: Inequality in Switzerland
// author:  Isabel Martinez (based on an older version by Jonas Meier)
// date:    June 2015



**********
* Steuertarif ermitteln

/* Fuer Ehegatten, die in rechtlich und tatsaechlich ungetrennter Ehe leben, sowie fuer verwitwete,
* gerichtlich oder tatsaechlich getrennt lebende, geschiedene und ledige Steuerpflichtige, die mit
* Kindern im Sinn von Art 34 Abs. 1 lit. a zusammenleben, betraegt die Einkommenssteuer

NOTE: ICH DENKE DESHALB NICHT, DASS OW EINEN VERHEIRATETENTARIF ANWENDET
* 1=Grundtarif
* 2=Tarif fuer Verheiratete und Einelternhaushalte
gen steuertarif =.
replace steuertarif = 1 if tarif_code == 0
replace steuertarif = 2 if (tarif_code == 1 | tarif_code == 2 )

*/



* Missings werden nicht als Nuller gesetzt!
// steuerbares und satzbestimmendes EK
gen esteuerbst_mi = (esteuerbst==.) 
	label var esteuerbst_mi "esteuerbst was missing"
	sum esteuerbst_mi // this is actually never missing
gen esatzbestkopf_mi = (esatzbestkopf==.) 
	label var esatzbestkopf_mi "esatzbestkopf was missing"
	sum esatzbestkopf_mi // this is sometimes missing
	sum esteuerbst if esatzbestkopf_mi==1 // when it is missing, taxable income==0
gen satzb_dbst_mi = (satzb_dbst==.)	
    label var satzb_dbst_mi "satzb_dbst was missing"
	sum satzb_dbst_mi // this is often missing
gen stbar_dbst_mi = (stbar_dbst==.)
    sum stbar_dbst_mi


tab satzb_dbst_mi esatzbestkopf_mi // however, satzb_dbst is only missing in 665 cases together with esatzbestkopf --> replace the rest satzb_dbst with esatzbestkopf
tab esteuerbst_mi esatzbestkopf_mi // esatzbestkopf is missing 665 times while esteuerbst is not --> replace esatzbestkopf with esteuerbst in these 665 cases
tab esteuerbst_mi satzb_dbst_mi if esatzbestkopf_mi==1 // replace satzb_dbst with esteuerbst in 665 cases; replace 911 missing esteuerbst with satzb_dbst
tab stbar_dbst_mi satzb_dbst_mi // in 703 cases, stbar is missing but satz is not --> replace stbar with satz
tab stbar_dbst_mi esteuerbst_mi // in 853 cases, estbar is missing but stbar_dbst is not --> replace e with dbst


* Difference between rate-determining and taxable income/wealth (satzbestimmend!=steuerbar)
egen diff_eink = diff(esatzbestkopf esteuerbst)
    label var diff_eink "difference between rate-determining and taxable income (dummy)"
    note diff_eink :"egen diff(esatzbestkopf esteuerbst)"

egen diff_verm = diff(vsatzbestkopf vsteuerbst)
    label var diff_verm "difference between rate-determining and taxable wealth (dummy)"
    note diff_verm :"egen diff(vsatzbestkopf vsteuerbst)"

egen diff_eink_dbst = diff(satzb_dbst stbar_dbst) if satzb_dbst != .

sum diff_eink diff_verm diff_eink_dbst, de


sum esatzbestkopf  if diff_eink ==1, de
sum esatzbestkopf  if diff_eink ==0, de
sum esatzbestkopf , de
        /*  NOTE: Casese wehere rate-determining and taxable income are not equal have
            rate-determining income larger than those where there is no difference
            as well as for the whole sample 
        */

sum vsatzbestkopf  if diff_verm ==1, de
sum vsatzbestkopf  if diff_verm ==0, de
sum vsatzbestkopf , de
        /*  NOTE: Casese wehere rate-determining and taxable wealth are not equal have
            rate-determining wealth substantially larger than those where there is no 
            difference as well as for the whole sample 
        */

tab diff_verm diff_eink, col row
        /* 70% of those who have differing taxable- and rate-determining inome, 
            also have differing taxable- and rate-determining wealth
        */

drop diff_eink diff_verm
gen diff_eink = esatzbestkopf/esteuerbst
sum diff_eink , de // on avg., satzbest is 9x larger than steuerbst; top 10: 5.8; save to say that satzbest is at least as large as steuerbst

gen diff_dbst= satzb_dbst/esatzbestkopf
sum diff_dbst, de // satz_DBST > satz, use factor 1.1 (median value)

gen diff_st_dbst = satzb_dbst/esteuerbst
sum diff_st_dbst, de // difference and variance larger, median similar --> 1.1

gen diff_dbst_satzst = satzb_dbst/stbar_dbst
sum diff_dbst_satzst, de // only top 1% has satz >>> steuerbar (factor 23), others==1. Mean: 2

gen diff_dbst2 = stbar_dbst/esteuerbst
sum diff_dbst2, de 

gen diff_verm = vsatzbestkopf/vsteuerbst
sum diff_verm , de // on avg., satzbest is 10x larger than steuerbst; top 10: 8; save to say that satzbest is at least as large as steuerbst


// replace the missing income variables
replace esatzbestkopf = esteuerbst if esatzbestkopf==.
replace satzb_dbst = esatzbestkopf*1.1 if satzb_dbst==.
replace esteuerbst = satzb_dbst/1.1 if esteuerbst==.
replace stbar_dbst = satzb_dbst if stbar_dbst ==.
replace esatzbestkopf = esteuerbst if esatzbestkopf==.


// steuerbares und satzbestimmendes Vermoegen
gen vsteuerbst_mi = (vsteuerbst==.) 
	label var vsteuerbst_mi "vsteuerbst was missing"
	sum vsteuerbst_mi // this is actually never missing
gen vsatzbestkopf_mi = (vsatzbestkopf==.) 
	label var vsatzbestkopf_mi "vsatzbestkopf was missing"
	sum vsatzbestkopf_mi // this is missing sometimes
	tab vsatzbestkopf_mi // in 665 cases
	sum vsteuerbst if vsatzbestkopf_mi==1 // when it is missing, taxable wealth==0, recoding is therefore fine
recode vsteuerbst vsatzbestkopf (.=0)

tab vsatzbestkopf_mi esatzbestkopf_mi //665 Fälle, wo beides missing ist; wahrscheinlich weil nicht definitiv veranlagt
tab vsatzbestkopf_mi esatzbestkopf_mi if year<=2010 , mi // nur noch 4 Fälle, also ok (diese 4 haben aber nicht va_code==0 ("provisorisch Vorjahr")

drop diff*

// final check:
gen esteuerbst_mi2 = (esteuerbst==.) 
gen esatzbestkopf_mi2 = (esatzbestkopf==.) 
gen satzb_dbst_mi2 = (satzb_dbst==.)	
gen stbar_dbst_mi2 = (stbar_dbst==.)

tab satzb_dbst_mi2 esatzbestkopf_mi2
tab esteuerbst_mi2 esatzbestkopf_mi2 
tab esteuerbst_mi2 satzb_dbst_mi2 if esatzbestkopf_mi2==1 
tab stbar_dbst_mi2 satzb_dbst_mi2 
tab stbar_dbst_mi2 esteuerbst_mi2 
// those 911 where 
drop *_mi2
****************************************************************************************************************
* Berechnung der Einfachen Steuer
****************************************************************************************************************
********************************
/* Benoetigte Info und Berechnungsweise:
- Steuertarife aus kantonaler Gesetzgebung zur Berechnug der Progression 
- Die Besteuerung erfolgt schrittweise nach Einkommensstufen
- Es muss das satzbestimmende EK resp. Verm. verwendet werden:
 	diese sind nicht (!) z380  und z480, sondern esatzbestkopf und vsatzbestkopf
- Mit diesen beiden wird die einfache Steuer und dann der Durchschnittssatz berechent.
	Dieser Durchschnittssatz wird dann auf das steuerbare EK resp. Verm. angewendet.
*/

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* EINFACHE STEUER (EINKOMMEN)
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
** 2001-2002
gen einfachSteuer_satzbest 		= .
    label var einfachSteuer_satzbest "simple cantonal tax in CHF, cacluated using rate-determining income"

replace einfachSteuer_satzbest	= 0 if esatzbestkopf <= 3000 & year <=2002
replace einfachSteuer_satzbest 	= 0      + (esatzbestkopf-3000)*0.008 		if ((esatzbestkopf>=3001 & esatzbestkopf<=10000)   & year <= 2002)
replace einfachSteuer_satzbest 	= 56     + (esatzbestkopf-10000)*0.013 	if ((esatzbestkopf>=10001 & esatzbestkopf<=15000)  & year <= 2002)
replace einfachSteuer_satzbest 	= 121    + (esatzbestkopf-15000)*0.018		if ((esatzbestkopf>=15001 & esatzbestkopf<=22000)  & year <= 2002)
replace einfachSteuer_satzbest 	= 247    + (esatzbestkopf-22000)*0.022 	if ((esatzbestkopf>=22001 & esatzbestkopf<=31000)  & year <= 2002)
replace einfachSteuer_satzbest 	= 445    + (esatzbestkopf-31000)*0.024 	if ((esatzbestkopf>=31001 & esatzbestkopf<=75000)  & year <= 2002)
replace einfachSteuer_satzbest 	= 1501   + (esatzbestkopf-75000)*0.0247	if ((esatzbestkopf>=75001 & esatzbestkopf<=100000) & year <= 2002)
replace einfachSteuer_satzbest 	= 2118.5 + (esatzbestkopf-100000)*0.024	if (esatzbestkopf>=100001 & year <= 2002)


** 2003-2005
replace einfachSteuer_satzbest	= 0 if esatzbestkopf <= 3200 & year >= 2003 & year <= 2005
replace einfachSteuer_satzbest 	= 0      + (esatzbestkopf-3200)*0.008 		if ((esatzbestkopf>=3201 & esatzbestkopf<=10500)   & year >= 2003 & year <= 2005)
replace einfachSteuer_satzbest 	= 58.4   + (esatzbestkopf-10500)*0.013 	if ((esatzbestkopf>=10501 & esatzbestkopf<=15700)  & year >= 2003 & year <= 2005)
replace einfachSteuer_satzbest 	= 126    + (esatzbestkopf-15700)*0.018		if ((esatzbestkopf>=15701 & esatzbestkopf<=23000)  & year >= 2003 & year <= 2005)
replace einfachSteuer_satzbest 	= 257.4  + (esatzbestkopf-23000)*0.022 	if ((esatzbestkopf>=23001 & esatzbestkopf<=32400)  & year >= 2003 & year <= 2005)
replace einfachSteuer_satzbest 	= 464.2  + (esatzbestkopf-32400)*0.024 	if ((esatzbestkopf>=32401 & esatzbestkopf<=78200)  & year >= 2003 & year <= 2005)
replace einfachSteuer_satzbest 	= 1563.4 + (esatzbestkopf-78200)*0.0247	if ((esatzbestkopf>=78201 & esatzbestkopf<=104200) & year >= 2003 & year <= 2005)
replace einfachSteuer_satzbest 	= 2205.6 + (esatzbestkopf-104200)*0.024	if (esatzbestkopf>=104201 & year >= 2003 & year <= 2005)


** 2006-2007
replace einfachSteuer_satzbest	= 0 if esatzbestkopf <= 5000 & year >= 2006 & year <= 2007
replace einfachSteuer_satzbest 	= 0      + (esatzbestkopf-5000)*0.009 		if ((esatzbestkopf>=5001 & esatzbestkopf<=11000)    & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 54     + (esatzbestkopf-11000)*0.013 	if ((esatzbestkopf>=11001 & esatzbestkopf<=16000)   & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 119    + (esatzbestkopf-16000)*0.016		if ((esatzbestkopf>=16001 & esatzbestkopf<=23000)   & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 231    + (esatzbestkopf-23000)*0.022 	if ((esatzbestkopf>=23001 & esatzbestkopf<=38000)   & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 561    + (esatzbestkopf-38000)*0.023 	if ((esatzbestkopf>=38001 & esatzbestkopf<=70000)   & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 1297   + (esatzbestkopf-70000)*0.0235 	if ((esatzbestkopf>=70001 & esatzbestkopf<=300000)  & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 6702   + (esatzbestkopf-300000)*0.02		if ((esatzbestkopf>=300001 & esatzbestkopf<=340000) & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 7502   + (esatzbestkopf-340000)*0.015 	if ((esatzbestkopf>=340001 & esatzbestkopf<=380000) & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 8102   + (esatzbestkopf-380000)*0.012	if ((esatzbestkopf>=380001 & esatzbestkopf<=420000) & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 8582   + (esatzbestkopf-420000)*0.01		if ((esatzbestkopf>=420001 & esatzbestkopf<=550000) & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 9882   + (esatzbestkopf-550000)*0.012 	if ((esatzbestkopf>=550001 & esatzbestkopf<=600000) & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 10482  + (esatzbestkopf-600000)*0.016	if ((esatzbestkopf>=600001 & esatzbestkopf<=1000000) & year >= 2006 & year <= 2007)
replace einfachSteuer_satzbest 	= 16882  + (esatzbestkopf-1000000)*0.0165	if (esatzbestkopf>=1000001 & year >= 2006 & year <= 2007)


* 2008
replace einfachSteuer_satzbest = esatzbestkopf * 0.018 if year >=2008

* from satzbestimmend to steuerbar
gen einfachSteuer_durchschnittssatz	= einfachSteuer_satzbest/esatzbestkopf 
    label var einfachSteuer_durchschnittssatz "simple cantonal average tax rate (=einfachSteuer_satzbest/esatzbestkopf)"
gen einfachSteuer 		= einfachSteuer_durchschnittssatz*esteuerbst if year<2008
    label var einfachSteuer "simple cantonal tax, to be multiplied with multipliers"


** 2008-2013 // keine Unterscheidung in satzbestimmend und steuerbar mehr nötig, Einheitssatz direkt auf steuerbares EK anwendbar
replace einfachSteuer = esteuerbst * 0.018 if year >=2008

 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* EINFACHE VERMEOGENSSTEUER
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
gen einfachSteuer_verm_satzbest =.
     label var einfachSteuer_verm_satzbest "simple cantonal wealth tax in CHF, cacluated using rate-determining wealth"

** 2001-2005
replace einfachSteuer_verm_satzbest = vsatzbestkopf*0.0005			if year <=2005

** 2006-2007
replace einfachSteuer_verm_satzbest = vsatzbestkopf*0.00035 		if vsatzbestkopf <= 5000000 & year >= 2006 & year <= 2007
replace einfachSteuer_verm_satzbest = 1750 + vsatzbestkopf*0.0002 	if vsatzbestkopf >  5000000 & year >= 2006 & year <= 2007


* from satzbestimmend to steuerbar
gen einfachSteuer_verm_durchschn	= einfachSteuer_verm_satzbest/vsatzbestkopf  if year<2008
    label var einfachSteuer_verm_durchschn "simple cantonal average wealth tax rate (=einfachSteuer_verm_satzbest/vsatzbestkopf)"

gen einfachSteuer_verm 		= einfachSteuer_verm_durchschn*vsteuerbst if year<2008
    label var einfachSteuer_verm "simple cantonal wealth tax, to be multiplied with multipliers"


** 2008-2013
replace einfachSteuer_verm = vsteuerbst * 0.0002 		if year >= 2008




****************************************************************************************************************
* EFFEKTIVE STEUERSCHULD (Kantons-, Gemeinde- und Kirchensteuer)
****************************************************************************************************************
* Kirchenzugehoerigkeit bestimmen
gen kirche = .
replace kirche = 1 if rkanz > eranz   // katholisch
replace kirche = 2 if rkanz < eranz   // reformiert
replace kirche = 1 if rkanz == eranz  // katholisch, weil dies klar die dominante Glaubenszugehoerigkeit ist im Kanton
label var kirche "Religion"
note kirche : "categorial variable indicating the type of church tax the taxpayer pays"
	label define KIRCHE 1 `"catholic"', modify
	label define KIRCHE 2 `"protestant"', modify
	label values kirche KIRCHE

*Note: In Engelberg ist die Kirchensteuer im Gemeindesteuerfuss enthalten*

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
** EINKOMMEN
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
** 2001
gen 	steuern_einkK = einfachSteuer * 2.5 if year == 2001

gen 	steuern_einkG = einfachSteuer * 4.6 if	 ste_prigde_code == 1 & year == 2001
replace steuern_einkG = einfachSteuer * 5.5 if	 ste_prigde_code == 2 & year == 2001
replace steuern_einkG = einfachSteuer * 5.3 if	 ste_prigde_code == 3 & year == 2001
replace steuern_einkG = einfachSteuer * 5.2 if	 ste_prigde_code == 4 & year == 2001
replace steuern_einkG = einfachSteuer * 5.8 if 	 ste_prigde_code == 5 & year == 2001
replace steuern_einkG = einfachSteuer * 5.8 if	 ste_prigde_code == 6 & year == 2001
replace steuern_einkG = einfachSteuer * 5.7 if	 ste_prigde_code == 7 & year == 2001

gen		steuern_einkKi= einfachSteuer * 0.55 if	 ste_prigde_code == 1 & kirche == 1 & year == 2001
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 2 & kirche == 1 & year == 2001
replace steuern_einkKi= einfachSteuer * 0.75 if	 ste_prigde_code == 3 & kirche == 1 & year == 2001
replace steuern_einkKi= einfachSteuer * 0.75 if	 ste_prigde_code == 4 & kirche == 1 & year == 2001
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2001
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2001

replace steuern_einkKi= einfachSteuer * 0.55 if kirche == 2 & year == 2001


** 2002
replace	steuern_einkK = einfachSteuer * 3.15 if year == 2002

replace	steuern_einkG = einfachSteuer * 3.96 if	 ste_prigde_code == 1 & year == 2002
replace steuern_einkG = einfachSteuer * 4.85 if	 ste_prigde_code == 2 & year == 2002
replace steuern_einkG = einfachSteuer * 4.65 if	 ste_prigde_code == 3 & year == 2002
replace steuern_einkG = einfachSteuer * 4.55 if	 ste_prigde_code == 4 & year == 2002
replace steuern_einkG = einfachSteuer * 5.15 if  ste_prigde_code == 5 & year == 2002
replace steuern_einkG = einfachSteuer * 5.5  if	 ste_prigde_code == 6 & year == 2002
replace steuern_einkG = einfachSteuer * 5.05 if	 ste_prigde_code == 7 & year == 2002

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2002
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 2 & kirche == 1 & year == 2002
replace steuern_einkKi= einfachSteuer * 0.75 if	 ste_prigde_code == 3 & kirche == 1 & year == 2002
replace steuern_einkKi= einfachSteuer * 0.75 if	 ste_prigde_code == 4 & kirche == 1 & year == 2002
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2002
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2002

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2002


** 2003
replace	steuern_einkK = einfachSteuer * 3.15 if year == 2003

replace	steuern_einkG = einfachSteuer * 3.96 if	 ste_prigde_code == 1 & year == 2003
replace steuern_einkG = einfachSteuer * 4.85 if	 ste_prigde_code == 2 & year == 2003
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2003
replace steuern_einkG = einfachSteuer * 4.55 if	 ste_prigde_code == 4 & year == 2003
replace steuern_einkG = einfachSteuer * 5.15 if  ste_prigde_code == 5 & year == 2003
replace steuern_einkG = einfachSteuer * 5.5  if	 ste_prigde_code == 6 & year == 2003
replace steuern_einkG = einfachSteuer * 5.05 if	 ste_prigde_code == 7 & year == 2003

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2003
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 2 & kirche == 1 & year == 2003
replace steuern_einkKi= einfachSteuer * 0.75 if	 ste_prigde_code == 3 & kirche == 1 & year == 2003
replace steuern_einkKi= einfachSteuer * 0.73 if	 ste_prigde_code == 4 & kirche == 1 & year == 2003
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2003
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2003

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2003


** 2004
replace	steuern_einkK = einfachSteuer * 3.15 if year == 2004

replace	steuern_einkG = einfachSteuer * 3.96 if	 ste_prigde_code == 1 & year == 2004
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2004
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2004
replace steuern_einkG = einfachSteuer * 4.55 if	 ste_prigde_code == 4 & year == 2004
replace steuern_einkG = einfachSteuer * 5.15 if  ste_prigde_code == 5 & year == 2004
replace steuern_einkG = einfachSteuer * 5.5  if	 ste_prigde_code == 6 & year == 2004
replace steuern_einkG = einfachSteuer * 5.05 if	 ste_prigde_code == 7 & year == 2004

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2004
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 2 & kirche == 1 & year == 2004
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 3 & kirche == 1 & year == 2004
replace steuern_einkKi= einfachSteuer * 0.73 if	 ste_prigde_code == 4 & kirche == 1 & year == 2004
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2004
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2004

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2004


** 2005
replace	steuern_einkK = einfachSteuer * 3.15 if year == 2005

replace	steuern_einkG = einfachSteuer * 3.96 if	 ste_prigde_code == 1 & year == 2005
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2005
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2005
replace steuern_einkG = einfachSteuer * 4.55 if	 ste_prigde_code == 4 & year == 2005
replace steuern_einkG = einfachSteuer * 5.15 if  ste_prigde_code == 5 & year == 2005
replace steuern_einkG = einfachSteuer * 5.5  if	 ste_prigde_code == 6 & year == 2005
replace steuern_einkG = einfachSteuer * 5.05 if	 ste_prigde_code == 7 & year == 2005

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2005
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 2 & kirche == 1 & year == 2005
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 3 & kirche == 1 & year == 2005
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 4 & kirche == 1 & year == 2005
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2005
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2005

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2005


** 2006
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2006

replace	steuern_einkG = einfachSteuer * 3.96 if	 ste_prigde_code == 1 & year == 2006
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2006
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2006
replace steuern_einkG = einfachSteuer * 4.55 if	 ste_prigde_code == 4 & year == 2006
replace steuern_einkG = einfachSteuer * 5.15 if  ste_prigde_code == 5 & year == 2006
replace steuern_einkG = einfachSteuer * 5.5  if	 ste_prigde_code == 6 & year == 2006
replace steuern_einkG = einfachSteuer * 5.05 if	 ste_prigde_code == 7 & year == 2006

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2006
replace steuern_einkKi= einfachSteuer * 0.65 if	 ste_prigde_code == 2 & kirche == 1 & year == 2006
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 3 & kirche == 1 & year == 2006
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 4 & kirche == 1 & year == 2006
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2006
replace steuern_einkKi= einfachSteuer * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2006

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2006


** 2007
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2007

replace	steuern_einkG = einfachSteuer * 4.06 if	 ste_prigde_code == 1 & year == 2007
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2007
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2007
replace steuern_einkG = einfachSteuer * 4.55 if	 ste_prigde_code == 4 & year == 2007
replace steuern_einkG = einfachSteuer * 5.15 if  ste_prigde_code == 5 & year == 2007
replace steuern_einkG = einfachSteuer * 5.3  if	 ste_prigde_code == 6 & year == 2007
replace steuern_einkG = einfachSteuer * 5.05 if	 ste_prigde_code == 7 & year == 2007

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2007
replace steuern_einkKi= einfachSteuer * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2007
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 3 & kirche == 1 & year == 2007
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2007
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2007
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2007

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2007


** 2008
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2008

replace	steuern_einkG = einfachSteuer * 4.06 if	 ste_prigde_code == 1 & year == 2008
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2008
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2008
replace steuern_einkG = einfachSteuer * 4.55 if	 ste_prigde_code == 4 & year == 2008
replace steuern_einkG = einfachSteuer * 5    if  ste_prigde_code == 5 & year == 2008
replace steuern_einkG = einfachSteuer * 5.3  if	 ste_prigde_code == 6 & year == 2008
replace steuern_einkG = einfachSteuer * 5.05 if	 ste_prigde_code == 7 & year == 2008

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2008
replace steuern_einkKi= einfachSteuer * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2008
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2008
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2008
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2008
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2008

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2008


** 2009
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2009

replace	steuern_einkG = einfachSteuer * 4.06 if	 ste_prigde_code == 1 & year == 2009
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2009
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2009
replace steuern_einkG = einfachSteuer * 4.3  if	 ste_prigde_code == 4 & year == 2009
replace steuern_einkG = einfachSteuer * 5    if  ste_prigde_code == 5 & year == 2009
replace steuern_einkG = einfachSteuer * 5    if	 ste_prigde_code == 6 & year == 2009
replace steuern_einkG = einfachSteuer * 4.85 if	 ste_prigde_code == 7 & year == 2009

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2009
replace steuern_einkKi= einfachSteuer * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2009
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2009
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2009
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2009
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2009

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2009


** 2010
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2010

replace	steuern_einkG = einfachSteuer * 4.06 if	 ste_prigde_code == 1 & year == 2010
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2010
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2010
replace steuern_einkG = einfachSteuer * 4.3  if	 ste_prigde_code == 4 & year == 2010
replace steuern_einkG = einfachSteuer * 5    if  ste_prigde_code == 5 & year == 2010
replace steuern_einkG = einfachSteuer * 5    if	 ste_prigde_code == 6 & year == 2010
replace steuern_einkG = einfachSteuer * 4.85 if	 ste_prigde_code == 7 & year == 2010

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2010
replace steuern_einkKi= einfachSteuer * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2010
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2010
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2010
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2010
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2010

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2010


** 2011
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2011

replace	steuern_einkG = einfachSteuer * 4.06 if	 ste_prigde_code == 1 & year == 2011
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2011
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2011
replace steuern_einkG = einfachSteuer * 4.3  if	 ste_prigde_code == 4 & year == 2011
replace steuern_einkG = einfachSteuer * 5    if  ste_prigde_code == 5 & year == 2011
replace steuern_einkG = einfachSteuer * 5    if	 ste_prigde_code == 6 & year == 2011
replace steuern_einkG = einfachSteuer * 4.85 if	 ste_prigde_code == 7 & year == 2011

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2011
replace steuern_einkKi= einfachSteuer * 0.67 if	 ste_prigde_code == 2 & kirche == 1 & year == 2011
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2011
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2011
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2011
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2011

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2011


** 2012
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2012

replace	steuern_einkG = einfachSteuer * 4.06 if	 ste_prigde_code == 1 & year == 2012
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2012
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2012
replace steuern_einkG = einfachSteuer * 4.3  if	 ste_prigde_code == 4 & year == 2012
replace steuern_einkG = einfachSteuer * 5    if	 ste_prigde_code == 5 & year == 2012
replace steuern_einkG = einfachSteuer * 5    if	 ste_prigde_code == 6 & year == 2012
replace steuern_einkG = einfachSteuer * 4.85 if	 ste_prigde_code == 7 & year == 2012

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2012
replace steuern_einkKi= einfachSteuer * 0.67 if	 ste_prigde_code == 2 & kirche == 1 & year == 2012
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2012
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2012
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2012
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2012

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2012


** 2013
replace	steuern_einkK = einfachSteuer * 2.95 if year == 2013

replace	steuern_einkG = einfachSteuer * 4.06 if	 ste_prigde_code == 1 & year == 2013
replace steuern_einkG = einfachSteuer * 4.7  if	 ste_prigde_code == 2 & year == 2013
replace steuern_einkG = einfachSteuer * 4.45 if	 ste_prigde_code == 3 & year == 2013
replace steuern_einkG = einfachSteuer * 4.3  if	 ste_prigde_code == 4 & year == 2013
replace steuern_einkG = einfachSteuer * 5    if  ste_prigde_code == 5 & year == 2013
replace steuern_einkG = einfachSteuer * 5    if	 ste_prigde_code == 6 & year == 2013
replace steuern_einkG = einfachSteuer * 4.85 if	 ste_prigde_code == 7 & year == 2013

replace	steuern_einkKi= einfachSteuer * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2013
replace steuern_einkKi= einfachSteuer * 0.67 if	 ste_prigde_code == 2 & kirche == 1 & year == 2013
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2013
replace steuern_einkKi= einfachSteuer * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2013
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2013
replace steuern_einkKi= einfachSteuer * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2013

replace steuern_einkKi= einfachSteuer * 0.54 if kirche == 2 & year == 2013



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
** VERMOEGEN 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

** Vermoegenssteuer Kanton
gen 	steuern_vermK = einfachSteuer_verm * 2.5  if year == 2001
replace	steuern_vermK = einfachSteuer_verm * 3.15 if year >= 2002 & year <=2005
replace	steuern_vermK = einfachSteuer_verm * 2.95 if year >= 2006

** Vermoegenssteuer Gemeinde und Kirchen
** 2001
gen 	steuern_vermG = einfachSteuer_verm * 4.6 if	 ste_prigde_code == 1 & year == 2001
replace steuern_vermG = einfachSteuer_verm * 5.5 if	 ste_prigde_code == 2 & year == 2001
replace steuern_vermG = einfachSteuer_verm * 5.3 if	 ste_prigde_code == 3 & year == 2001
replace steuern_vermG = einfachSteuer_verm * 5.2 if	 ste_prigde_code == 4 & year == 2001
replace steuern_vermG = einfachSteuer_verm * 5.8 if  ste_prigde_code == 5 & year == 2001
replace steuern_vermG = einfachSteuer_verm * 5.8 if	 ste_prigde_code == 6 & year == 2001
replace steuern_vermG = einfachSteuer_verm * 5.7 if	 ste_prigde_code == 7 & year == 2001

gen		steuern_vermKi= einfachSteuer_verm * 0.55 if 	ste_prigde_code == 1 & kirche == 1 & year == 2001
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	ste_prigde_code == 2 & kirche == 1 & year == 2001
replace steuern_vermKi= einfachSteuer_verm * 0.75 if	ste_prigde_code == 3 & kirche == 1 & year == 2001
replace steuern_vermKi= einfachSteuer_verm * 0.75 if	ste_prigde_code == 4 & kirche == 1 & year == 2001
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2001
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2001

replace steuern_vermKi= einfachSteuer_verm * 0.55 if kirche == 2 & year == 2001

** 2002
replace	steuern_vermG = einfachSteuer_verm * 3.96 if	 ste_prigde_code == 1 & year == 2002
replace steuern_vermG = einfachSteuer_verm * 4.85 if	 ste_prigde_code == 2 & year == 2002
replace steuern_vermG = einfachSteuer_verm * 4.65 if	 ste_prigde_code == 3 & year == 2002
replace steuern_vermG = einfachSteuer_verm * 4.55 if	 ste_prigde_code == 4 & year == 2002
replace steuern_vermG = einfachSteuer_verm * 5.15 if 	 ste_prigde_code == 5 & year == 2002
replace steuern_vermG = einfachSteuer_verm * 5.5  if	 ste_prigde_code == 6 & year == 2002
replace steuern_vermG = einfachSteuer_verm * 5.05 if	 ste_prigde_code == 7 & year == 2002

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2002
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 2 & kirche == 1 & year == 2002
replace steuern_vermKi= einfachSteuer_verm * 0.75 if	 ste_prigde_code == 3 & kirche == 1 & year == 2002
replace steuern_vermKi= einfachSteuer_verm * 0.75 if	 ste_prigde_code == 4 & kirche == 1 & year == 2002
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2002
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2002

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2002

** 2003
replace	steuern_vermG = einfachSteuer_verm * 3.96 if	 ste_prigde_code == 1 & year == 2003
replace steuern_vermG = einfachSteuer_verm * 4.85 if	 ste_prigde_code == 2 & year == 2003
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2003
replace steuern_vermG = einfachSteuer_verm * 4.55 if	 ste_prigde_code == 4 & year == 2003
replace steuern_vermG = einfachSteuer_verm * 5.15 if 	 ste_prigde_code == 5 & year == 2003
replace steuern_vermG = einfachSteuer_verm * 5.5  if	 ste_prigde_code == 6 & year == 2003
replace steuern_vermG = einfachSteuer_verm * 5.05 if	 ste_prigde_code == 7 & year == 2003

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2003
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 2 & kirche == 1 & year == 2003
replace steuern_vermKi= einfachSteuer_verm * 0.75 if	 ste_prigde_code == 3 & kirche == 1 & year == 2003
replace steuern_vermKi= einfachSteuer_verm * 0.73 if	 ste_prigde_code == 4 & kirche == 1 & year == 2003
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2003
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2003

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2003

** 2004
replace	steuern_vermG = einfachSteuer_verm * 3.96 if	 ste_prigde_code == 1 & year == 2004
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2004
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2004
replace steuern_vermG = einfachSteuer_verm * 4.55 if	 ste_prigde_code == 4 & year == 2004
replace steuern_vermG = einfachSteuer_verm * 5.15 if 	 ste_prigde_code == 5 & year == 2004
replace steuern_vermG = einfachSteuer_verm * 5.5  if	 ste_prigde_code == 6 & year == 2004
replace steuern_vermG = einfachSteuer_verm * 5.05 if	 ste_prigde_code == 7 & year == 2004

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2004
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 2 & kirche == 1 & year == 2004
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 3 & kirche == 1 & year == 2004
replace steuern_vermKi= einfachSteuer_verm * 0.73 if	 ste_prigde_code == 4 & kirche == 1 & year == 2004
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2004
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2004

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2004

** 2005
replace	steuern_vermG = einfachSteuer_verm * 3.96 if	 ste_prigde_code == 1 & year == 2005
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2005
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2005
replace steuern_vermG = einfachSteuer_verm * 4.55 if	 ste_prigde_code == 4 & year == 2005
replace steuern_vermG = einfachSteuer_verm * 5.15 if 	 ste_prigde_code == 5 & year == 2005
replace steuern_vermG = einfachSteuer_verm * 5.5  if	 ste_prigde_code == 6 & year == 2005
replace steuern_vermG = einfachSteuer_verm * 5.05 if	 ste_prigde_code == 7 & year == 2005

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2005
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 2 & kirche == 1 & year == 2005
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 3 & kirche == 1 & year == 2005
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 4 & kirche == 1 & year == 2005
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2005
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2005

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2005

** 2006
replace	steuern_vermG = einfachSteuer_verm * 3.96 if	 ste_prigde_code == 1 & year == 2006
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2006
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2006
replace steuern_vermG = einfachSteuer_verm * 4.55 if	 ste_prigde_code == 4 & year == 2006
replace steuern_vermG = einfachSteuer_verm * 5.15 if 	 ste_prigde_code == 5 & year == 2006
replace steuern_vermG = einfachSteuer_verm * 5.5  if	 ste_prigde_code == 6 & year == 2006
replace steuern_vermG = einfachSteuer_verm * 5.05 if	 ste_prigde_code == 7 & year == 2006

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2006
replace steuern_vermKi= einfachSteuer_verm * 0.65 if	 ste_prigde_code == 2 & kirche == 1 & year == 2006
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 3 & kirche == 1 & year == 2006
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 4 & kirche == 1 & year == 2006
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2006
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2006

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2006

** 2007
replace	steuern_vermG = einfachSteuer_verm * 4.06 if	 ste_prigde_code == 1 & year == 2007
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2007
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2007
replace steuern_vermG = einfachSteuer_verm * 4.55 if	 ste_prigde_code == 4 & year == 2007
replace steuern_vermG = einfachSteuer_verm * 5.15 if 	 ste_prigde_code == 5 & year == 2007
replace steuern_vermG = einfachSteuer_verm * 5.3  if	 ste_prigde_code == 6 & year == 2007
replace steuern_vermG = einfachSteuer_verm * 5.05 if	 ste_prigde_code == 7 & year == 2007

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2007
replace steuern_vermKi= einfachSteuer_verm * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2007
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 3 & kirche == 1 & year == 2007
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2007
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2007
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2007

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2007


** 2008
replace	steuern_vermG = einfachSteuer_verm * 4.06 if	 ste_prigde_code == 1 & year == 2008
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2008
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2008
replace steuern_vermG = einfachSteuer_verm * 4.55 if	 ste_prigde_code == 4 & year == 2008
replace steuern_vermG = einfachSteuer_verm * 5   if 	 ste_prigde_code == 5 & year == 2008
replace steuern_vermG = einfachSteuer_verm * 5.3  if	 ste_prigde_code == 6 & year == 2008
replace steuern_vermG = einfachSteuer_verm * 5.05 if	 ste_prigde_code == 7 & year == 2008

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2008
replace steuern_vermKi= einfachSteuer_verm * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2008
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2008
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2008
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2008
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2008

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2008

** 2009
replace	steuern_vermG = einfachSteuer_verm * 4.06 if	 ste_prigde_code == 1 & year == 2009
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2009
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2009
replace steuern_vermG = einfachSteuer_verm * 4.3 if	 ste_prigde_code == 4 & year == 2009
replace steuern_vermG = einfachSteuer_verm * 5 if 	 ste_prigde_code == 5 & year == 2009
replace steuern_vermG = einfachSteuer_verm * 5  if	 ste_prigde_code == 6 & year == 2009
replace steuern_vermG = einfachSteuer_verm * 4.85 if	 ste_prigde_code == 7 & year == 2009

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2009
replace steuern_vermKi= einfachSteuer_verm * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2009
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2009
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2009
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2009
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2009

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2009

** 2010
replace	steuern_vermG = einfachSteuer_verm * 4.06 if	 ste_prigde_code == 1 & year == 2010
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2010
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2010
replace steuern_vermG = einfachSteuer_verm * 4.3 if	 ste_prigde_code == 4 & year == 2010
replace steuern_vermG = einfachSteuer_verm * 5 if 	 ste_prigde_code == 5 & year == 2010
replace steuern_vermG = einfachSteuer_verm * 5  if	 ste_prigde_code == 6 & year == 2010
replace steuern_vermG = einfachSteuer_verm * 4.85 if	 ste_prigde_code == 7 & year == 2010

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2010
replace steuern_vermKi= einfachSteuer_verm * 0.62 if	 ste_prigde_code == 2 & kirche == 1 & year == 2010
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2010
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2010
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2010
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2010

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2010

** 2011
replace	steuern_vermG = einfachSteuer_verm * 4.06 if	 ste_prigde_code == 1 & year == 2011
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2011
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2011
replace steuern_vermG = einfachSteuer_verm * 4.3 if	 ste_prigde_code == 4 & year == 2011
replace steuern_vermG = einfachSteuer_verm * 5 if 	 ste_prigde_code == 5 & year == 2011
replace steuern_vermG = einfachSteuer_verm * 5  if	 ste_prigde_code == 6 & year == 2011
replace steuern_vermG = einfachSteuer_verm * 4.85 if	 ste_prigde_code == 7 & year == 2011

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2011
replace steuern_vermKi= einfachSteuer_verm * 0.67 if	 ste_prigde_code == 2 & kirche == 1 & year == 2011
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2011
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2011
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2011
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2011

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2011

** 2012
replace	steuern_vermG = einfachSteuer_verm * 4.06 if	 ste_prigde_code == 1 & year == 2012
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2012
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2012
replace steuern_vermG = einfachSteuer_verm * 4.3  if	 ste_prigde_code == 4 & year == 2012
replace steuern_vermG = einfachSteuer_verm * 5   if 	 ste_prigde_code == 5 & year == 2012
replace steuern_vermG = einfachSteuer_verm * 5   if	 ste_prigde_code == 6 & year == 2012
replace steuern_vermG = einfachSteuer_verm * 4.85 if	 ste_prigde_code == 7 & year == 2012

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2012
replace steuern_vermKi= einfachSteuer_verm * 0.67 if	 ste_prigde_code == 2 & kirche == 1 & year == 2012
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2012
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2012
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 5 & kirche == 1 & year == 2012
replace steuern_vermKi= einfachSteuer_verm * 0.7  if	 ste_prigde_code == 6 & kirche == 1 & year == 2012

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2012

** 2013
replace	steuern_vermG = einfachSteuer_verm * 4.06 if	 ste_prigde_code == 1 & year == 2013
replace steuern_vermG = einfachSteuer_verm * 4.7  if	 ste_prigde_code == 2 & year == 2013
replace steuern_vermG = einfachSteuer_verm * 4.45 if	 ste_prigde_code == 3 & year == 2013
replace steuern_vermG = einfachSteuer_verm * 4.3  if	 ste_prigde_code == 4 & year == 2013
replace steuern_vermG = einfachSteuer_verm * 5   if 	 ste_prigde_code == 5 & year == 2013
replace steuern_vermG = einfachSteuer_verm * 5   if	 ste_prigde_code == 6 & year == 2013
replace steuern_vermG = einfachSteuer_verm * 4.85 if	 ste_prigde_code == 7 & year == 2013

replace	steuern_vermKi= einfachSteuer_verm * 0.54 if	 ste_prigde_code == 1 & kirche == 1 & year == 2013
replace steuern_vermKi= einfachSteuer_verm * 0.67 if	 ste_prigde_code == 2 & kirche == 1 & year == 2013
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 3 & kirche == 1 & year == 2013
replace steuern_vermKi= einfachSteuer_verm * 0.68 if	 ste_prigde_code == 4 & kirche == 1 & year == 2013
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 5 & kirche == 1 & year == 2013
replace steuern_vermKi= einfachSteuer_verm * 0.7 if	 ste_prigde_code == 6 & kirche == 1 & year == 2013

replace steuern_vermKi= einfachSteuer_verm * 0.54 if kirche == 2 & year == 2013

****************************************************************************************************************
* DIREKTE BUNDESSTEUER
****************************************************************************************************************
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
** EINKOMMEN
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* TARIFE DIREKTE BUNDESSTEUER * 
// program: Berechnung Steuerbetrag DBSt
// author:  Isabel Martinez 
// date:    June 2016


replace satzb_dbst = esatzbestkopf*1.1 if satzb_dbst == . // otherwise people whose federal taxable icome was not in the additional data will end up having missing average taxrates

gen satzbSteuer_dbs= .

gen snpzivcd =.
replace snpzivcd =0 if zivilstand_tarif == 1
replace snpzivcd =1 if zivilstand_tarif == 0 & snpanzki >0
replace snpzivcd =2 if zivilstand_tarif !=1 & snpanzki <1
label define SNPZIVCD 0 `"married"'  1 `"single parent"' 2 `"single"', modify
label values snpzivcd SNPZIVCD
tab snpzivcd, mi


* 1996 - 2005 
** Verheiratete und Einelternfamilien
replace satzbSteuer_dbs=	satzb_dbst*	0.115	if satzb_dbst >	788400														& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	4775	+	(satzb_dbst-127700)* 0.13	if (satzb_dbst <=	788400	& satzb_dbst>	127700	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	4571	+	(satzb_dbst-126000)* 0.12	if (satzb_dbst <=	127700	& satzb_dbst>	126000	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	4384	+	(satzb_dbst-124300)* 0.11	if (satzb_dbst <=	126000	& satzb_dbst>	124300	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	4044	+	(satzb_dbst-120900)* 0.10	if (satzb_dbst <=	124300	& satzb_dbst>	120900	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	3594	+	(satzb_dbst-115900)* 0.09	if (satzb_dbst <=	120900	& satzb_dbst>	115900	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	3066	+	(satzb_dbst-109300)* 0.08	if (satzb_dbst <=	115900	& satzb_dbst>	109300	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	2485	+	(satzb_dbst-101000)* 0.07	if (satzb_dbst <=	109300	& satzb_dbst>	101000	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	1885	+	(satzb_dbst-91000)*	0.06	if (satzb_dbst <=	101000	& satzb_dbst>	91000	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	1305	+	(satzb_dbst-79400)*	0.05	if (satzb_dbst <=	91000	& satzb_dbst>	79400	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	 777	+	(satzb_dbst-66200)*	0.04	if (satzb_dbst <=	79400	& satzb_dbst>	66200	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	 330	+	(satzb_dbst-51300)*	0.03	if (satzb_dbst <=	66200	& satzb_dbst>	51300	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	 198	+	(satzb_dbst-44700)*	0.02	if (satzb_dbst <=	51300	& satzb_dbst>	44700	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	   0	+	(satzb_dbst-24900)*	0.01	if (satzb_dbst <=	44700	& satzb_dbst>	24900	)	& year>1995 & year<2006	 & snpzivcd!=2
replace satzbSteuer_dbs=	   0									if  satzb_dbst <=	24900								& year>1995 & year<2006	 & snpzivcd!=2

** Singles
replace satzbSteuer_dbs=	satzb_dbst*	0.115	if satzb_dbst >	664300									
replace satzbSteuer_dbs=	9127.03	+	(satzb_dbst-154700)*	0.132	if (satzb_dbst <=	664300	& satzb_dbst>	154700	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	5134.03	+	(satzb_dbst-118400)*	0.11	if (satzb_dbst <=	154700	& satzb_dbst>	118400	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	2731.63	+	(satzb_dbst-91100) *	0.088	if (satzb_dbst <=	118400	& satzb_dbst>	91100	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	1259.83	+	(satzb_dbst-68800) *	0.066	if (satzb_dbst <=	91100	& satzb_dbst>	68800	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	962.83	+	(satzb_dbst-63800) *	0.0594	if (satzb_dbst <=	68800	& satzb_dbst>	63800	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	511.39	+	(satzb_dbst-48600) *	0.0297	if (satzb_dbst <=	63800	& satzb_dbst>	48600	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	191.95	+	(satzb_dbst-36500) *	0.0264	if (satzb_dbst <=	48600	& satzb_dbst>	36500	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	116.27	+	(satzb_dbst-27900) *	0.0088	if (satzb_dbst <=	36500	& satzb_dbst>	27900	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	   0	+	(satzb_dbst-12800) *	0.0077	if (satzb_dbst <=	27900	& satzb_dbst>	12800	)	& year>1995 & year<2006		 & snpzivcd==2	
replace satzbSteuer_dbs=	   0				if  satzb_dbst <=	12800				& year>1995 & year<2006		 & snpzivcd==2	


* 2006-2010	
** Verheiratete und Einelternfamilien	
replace satzbSteuer_dbs=	satzb_dbst*	0.115	if satzb_dbst >	843600										
replace satzbSteuer_dbs=	5091	+	(satzb_dbst-	136500	)*	0.13	if (satzb_dbst <=	843600	& satzb_dbst>	136500	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	4875	+	(satzb_dbst-	134700	)*	0.12	if (satzb_dbst <=	136500	& satzb_dbst>	134700	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	4677	+	(satzb_dbst-	132900	)*	0.11	if (satzb_dbst <=	134700	& satzb_dbst>	132900	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	4317	+	(satzb_dbst-	129300	)*	0.10	if (satzb_dbst <=	132900	& satzb_dbst>	129300	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	3840	+	(satzb_dbst-	124000	)*	0.09	if (satzb_dbst <=	129300	& satzb_dbst>	124000	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	3280	+	(satzb_dbst-	117000	)*	0.08	if (satzb_dbst <=	124000	& satzb_dbst>	117000	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	2657	+	(satzb_dbst-	108100	)*	0.07	if (satzb_dbst <=	117000	& satzb_dbst>	108100	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	2015	+	(satzb_dbst-	97400	)*	0.06	if (satzb_dbst <=	108100	& satzb_dbst>	97400	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	1400	+	(satzb_dbst-	85100	)*	0.05	if (satzb_dbst <=	97400	& satzb_dbst>	85100	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	 832	+	(satzb_dbst-	70900	)*	0.04	if (satzb_dbst <=	85100	& satzb_dbst>	70900	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	 352	+	(satzb_dbst-	54900	)*	0.03	if (satzb_dbst <=	70900	& satzb_dbst>	54900	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	 212	+	(satzb_dbst-	47900	)*	0.02	if (satzb_dbst <=	54900	& satzb_dbst>	47900	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	   0	+	(satzb_dbst-	26700	)*	0.01	if (satzb_dbst <=	47900	& satzb_dbst>	26700	)	& year>2005 & year<2011	 & snpzivcd!=2	
replace satzbSteuer_dbs=	   0				if  satzb_dbst <=	26700	

** Singles
replace satzbSteuer_dbs=	satzb_dbst*	0.115	if satzb_dbst >	843600										
replace satzbSteuer_dbs=	9826.63	+	(satzb_dbst-	166200	)*	0.132	if (satzb_dbst <=	712400	& satzb_dbst>	166200	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	5525.63	+	(satzb_dbst-	127100	)*	0.11	if (satzb_dbst <=	166200	& satzb_dbst>	127100	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	2938.43	+	(satzb_dbst-	97700	)*	0.088	if (satzb_dbst <=	127100	& satzb_dbst>	97700	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	1347.83	+	(satzb_dbst-	73600	)*	0.066	if (satzb_dbst <=	97700	& satzb_dbst>	73600	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	1033.01	+	(satzb_dbst-	68300	)*	0.0594	if (satzb_dbst <=	73600	& satzb_dbst>	68300	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	 548.9	+	(satzb_dbst-	52000	)*	0.0297	if (satzb_dbst <=	68300	& satzb_dbst>	52000	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	 205.7	+	(satzb_dbst-	39000	)*	0.0264	if (satzb_dbst <=	52000	& satzb_dbst>	39000	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	 124.74	+	(satzb_dbst-	29800	)*	0.0088	if (satzb_dbst <=	39000	& satzb_dbst>	29800	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	   0	+	(satzb_dbst-	13600	)*	0.0077	if (satzb_dbst <=	29800	& satzb_dbst>	13600	)	& year>2005 & year<2011	 & snpzivcd==2	
replace satzbSteuer_dbs=	   0				if  satzb_dbst <=	13600		


* from satzbestimmend to steuerbar
gen dbst_durchschnittssatz	= satzbSteuer_dbs/satzb_dbst 
gen dbst 		= dbst_durchschnittssatz*stbar_dbst
	label var dbst "Direkte Bundessteuer DBST (federal income tax)"

drop snpzivcd


****************************************************************************************************************
** STEUERTOTAL
****************************************************************************************************************
* Missings 0 setzen
recode steuern_einkK (.=0)
recode steuern_einkG (.=0)
recode steuern_einkKi (.=0) // unklar oder Engelberg
recode steuern_vermK (.=0)
recode steuern_vermG (.=0)
recode steuern_vermKi (.=0) // unklar oder Engelberg

** Einkommenssteuer
gen steuern_einkKGKi = steuern_einkK + steuern_einkG + steuern_einkKi
gen steuern_eink	 = dbst+ steuern_einkK + steuern_einkG + steuern_einkKi

** Vermoegenssteuer
gen steuern_verm = steuern_vermK + steuern_vermG + steuern_vermKi


label	variable	steuern_eink	"income tax (federal, canton, municipality, church)"
label	variable	steuern_einkK	"income tax canton"
label	variable 	steuern_einkG	"income tax municipality"
label	variable 	steuern_einkKi  "income tax church"
label	variable	steuern_einkKGKi "income tax canton, municipality, church"
label	variable	steuern_verm	"wealth tax (canton, municipality, church)"
label	variable	steuern_vermK	"wealth tax canton"
label	variable 	steuern_vermG	"wealth tax municipality"
label	variable 	steuern_vermKi	"wealth tax church"

****************************************************************************************************************
** STEUERBELASTUNG
****************************************************************************************************************
* in % des Bruttoeinkommens
gen avgt_stek_gross 	= steuern_eink/z199s1
gen avgt_stekK_gross	= steuern_einkK/z199s1
gen avgt_stekG_gross	= steuern_einkG/z199s1
gen avgt_stekKi_gross	= steuern_einkKi/z199s1
gen avgt_stekKGKi_gross	= steuern_einkKGKi/z199s1

label var avgt_stek_gross "total average tax rate on gross income"
label var avgt_stekK_gross "average cantonal tax rate on gross income"
label var avgt_stekG_gross "average municipality tax rate on gross income"
label var avgt_stekKi_gross "average church tax rate on gross income"
label var avgt_stekKGKi_gross "average cantoanl, municipal, and church tax rate on gross income"


* in % des steuerbaren Einkommens PROBLEM AN DIESER VARIABLE: steuerbares EK oftmals 0...
gen avgt_stek_taxable 	= steuern_einkKGKi/esteuerbst + dbst_durchschnittssatz
gen avgt_stekK_taxable	= steuern_einkK/esteuerbst
gen avgt_stekG_taxable	= steuern_einkG/esteuerbst
gen avgt_stekKi_taxable	= steuern_einkKi/esteuerbst
gen avgt_stekKGKi_taxable = steuern_einkKGKi/esteuerbst

label var avgt_stek_taxable "total average tax rate on cantonal taxable income (includes federal tax)"
label var avgt_stekK_taxable "average cantonal tax rate on cantonal taxable income"
label var avgt_stekG_taxable "average municipality tax rate on cantonal taxable income"
label var avgt_stekKi_taxable "average church tax rate on cantonal taxable income"
label var avgt_stekKGKi_taxable "average cantonal, municipal and church tax rate on cantonal taxable income"


* in % des satzbestimmenden Einkommens
gen avgt_stek_taxable_b 	= steuern_einkKGKi/esatzbestkopf + dbst_durchschnittssatz
gen avgt_stekK_taxable_b	= steuern_einkK/esatzbestkopf
gen avgt_stekG_taxable_b	= steuern_einkG/esatzbestkopf
gen avgt_stekKi_taxable_b	= steuern_einkKi/esatzbestkopf
gen avgt_stekKGKi_taxable_b 	= steuern_einkKGKi/esatzbestkopf

label var avgt_stek_taxable_b "total average tax rate on cantonal rate-determining income (includes federal tax)"
label var avgt_stekK_taxable_b "average cantonal tax rate on cantonal rate-determining income"
label var avgt_stekG_taxable_b "average municipality tax rate on cantonal rate-determining income"
label var avgt_stekKi_taxable_b "average church tax rate on cantonal rate-determining income"
label var avgt_stekKGKi_taxable_b "average cantonal, municipal and church tax rate on cantonal rate-determining income"

* in % des Nettovermögens
gen avgt_stverm_net	    = steuern_verm/z470s1
gen avgt_stvermK_net	= steuern_vermK/z470s1
gen avgt_stvermG_net	= steuern_vermG/z470s1
gen avgt_stvermKi_net	= steuern_vermKi/z470s1

label var avgt_stverm_net "total average tax rate on net wealth"
label var avgt_stvermK_net "average cantonal tax rate on net wealth"
label var avgt_stvermG_net "average municipality tax rate on net wealth"
label var avgt_stvermKi_net "average church tax rate on net wealth"

* in % des steuerbaren Vermögens
gen avgt_stverm_taxable	    = steuern_verm/vsteuerbst
gen avgt_stvermK_taxable	= steuern_vermK/vsteuerbst
gen avgt_stvermG_taxable	= steuern_vermG/vsteuerbst
gen avgt_stvermKi_taxable	= steuern_vermKi/vsteuerbst

label var avgt_stverm_taxable "total average tax rate on cantonal taxable wealth"
label var avgt_stvermK_taxable "average cantonal tax rate on cantonal taxable wealth"
label var avgt_stvermG_taxable "average municipality tax rate on cantonal taxable wealth"
label var avgt_stvermKi_taxable "average church tax rate on cantonal taxable wealth"


